home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07b.d64 / data convertor (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  332b  |  10 lines
  1. 1 rem  data convertor
  2. 2 input"mem start, end & 1st line #";a,z,l:x$=str$(a)+","+str$(z):goto6
  3. 3 ifa>zthenend
  4. 4 z$=str$(peek(a)):x$=x$+right$(z$,len(z$)-1):a=a+1
  5. 5 ifa<=zandlen(x$)<65thenx$=x$+",":goto3
  6. 6 print"[147]"l"d[193]"x$:print"a="a":z="z":l="l+10":g[207] 3:";:poke631,13:poke632,13
  7. 7 poke198,2:end
  8. 8 print"[147]"x:print"x="x+1":g[207] 8:";:poke631,13:poke632,13:poke198,2:end
  9. 9 readx,y:fori=xtoy:readx:pokei,x:next
  10.